home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD010b.dsk / NTS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  8KB  |  116 lines

  1. 20  HIMEM: 36864
  2. 25  HOME : VTAB 8: PRINT "LOADING DATA..."
  3. 30 D$ =  CHR$(4)
  4. 40  PRINT D$;"BLOAD FILL1": REM  A$9000,L$320
  5. 100  DIM ST$(50,2)
  6. 105  DIM ST(51)
  7. 200  GOSUB 20000
  8. 1000  REM  *** MAIN PROGRAM 
  9. 1002  HGR : GOSUB 23000
  10. 1010  FOR E = 1 TO 50
  11. 1020 ST(E) =  -1
  12. 1220  POKE  -16301,0
  13. 1225  HOME : VTAB 24
  14. 1230  PRINT : PRINT ST$(E,2)
  15. 1240  FOR D = 1 TO 6000: NEXT 
  16. 1260  IF COLOUR >7  THEN COLOUR = 0
  17. 1270 COLOUR = COLOUR +1
  18. 1280  IF COLOUR = 3  THEN COLOUR = 4: REM  SKIP WHITE
  19. 1300  GOSUB 24000
  20. 1310  GOSUB 21000: REM  FILL
  21. 1315  FOR D = 1 TO 6000: NEXT 
  22. 1320  NEXT 
  23. 19999  END 
  24. 20000  REM    *** ST$(I,J) = STATE NAMES, WHERE I IS STATES NUMBERED ALPHABETICALLY AND J=1 FOR ABBREVIATION AND J=2 FOR FULL NAME
  25. 20001  FOR I = 1 TO 50
  26. 20002  FOR J = 1 TO 2
  27. 20003  READ ST$(I,J)
  28. 20004  NEXT 
  29. 20006  NEXT 
  30. 20008  RETURN 
  31. 20010  DATA   "ALA.","ALABAMA","ALSK.","ALASKA","ARIZ.","ARIZONA","ARK.","ARKANSAS","CAL.","CALIFORNIA","COLO.","COLORADO","CONN.","CONNECTICUT","DEL.","DELAWARE"
  32. 20020  DATA  FLA.,FLORIDA,GA.,GEORGIA,HAW.,HAWAII,IDAHO,IDAHO,ILL.,ILLINOIS,IND.,INDIANA,IOWA,IOWA,KANS.,KANSAS
  33. 20025  DATA  KY.,KENTUCKY
  34. 20030  DATA  LA.,LOUISIANA,ME.,MAINE,MD.,MARYLAND,MASS.,MASSACHUSETTS,MICH.,MICHIGAN,MINN.,MINNESOTA,MISS.,MISSISSIPPI,MO.,MISSOURI,MONT.,MONTANA,NEB.,NEBRASKA
  35. 20040  DATA  NEV.,NEVADA
  36. 20050  DATA  "N.H.","NEW HAMPSHIRE","N.J.","NEW JERSEY","N.M.","NEW MEXICO","N.Y,","NEW YORK","N.C.","NORTH CAROLINA","N.D.","NORTH DAKOTA"
  37. 20060  DATA  OHIO,OHIO,OKLA.,OKLAHOMA,ORE.,OREGON,PA.,PENNSYLVANIA
  38. 20070  DATA  "R.I.","RHODE ISLAND","S.C.","SOUTH CAROLINA","S.D.","SOUTH DAKOTA"
  39. 20080  DATA   TENN.,TENNESSEE,TEX.,TEXAS,UTAH,UTAH,VT.,VERMONT,VA.,VIRGINIA,WASH.,WASHINGTON
  40. 20085  DATA  "W.V.","WEST VIRGINIA"
  41. 20090  DATA  WISC.,WISCONSIN,WYO.,WYOMING
  42. 21000  REM  *** SEEDS FOR STATES
  43. 21010  IF ST(1) =  -1  THEN X = 178:Y = 93: GOSUB 22000:ST(1) = 0: REM  ALABAMA
  44. 21012  IF ST(2) =  -1  THEN X = 54:Y = 143: GOSUB 22000:X = 59:Y = 139: GOSUB 22000:X = 64:Y = 131: GOSUB 22000:X = 74:Y = 153: GOSUB 22000:ST(2) = 0: REM   ALASKA 
  45. 21014  IF ST(3) =  -1  THEN X = 58:Y = 82: GOSUB 22000:X = 68:Y = 105: GOSUB 22000:ST(3) = 0: REM  ARIZONA
  46. 21016  IF ST(4) =  -1  THEN X = 158:Y = 88: GOSUB 22000:ST(4) = 0: REM  ARKANSAS
  47. 21018  IF ST(5) =  -1  THEN X = 22:Y = 57: GOSUB 22000:X = 44:Y = 89: GOSUB 22000:ST(5) = 0: REM  CALIFORNIA
  48. 21020  IF ST(6) =  -1  THEN X = 87:Y = 78: GOSUB 22000:ST(6) = 0: REM  COLORADO
  49. 21022  IF ST(7) =  -1  THEN X = 225:Y = 42: GOSUB 22000:ST(7) = 0: REM  CONNECTICUT
  50. 21024  IF ST(8) =  -1  THEN ST(8) = 0: REM   DELAWARE  
  51. 21026  IF ST(9) =  -1  THEN X = 214:Y = 126: GOSUB 22000:X = 202:Y = 108: GOSUB 22000:ST(9) = 0: REM   FLORIDA 
  52. 21028  IF ST(10) =  -1  THEN X = 191:Y = 93: GOSUB 22000:ST(10) = 0: REM  GEORGIA
  53. 21030  IF ST(11) =  -1  THEN X = 190:Y = 156: GOSUB 22000:ST(11) = 0: REM  HAWAII
  54. 21032  IF ST(12) =  -1  THEN X = 56:Y = 31: GOSUB 22000:X = 69:Y = 57: GOSUB 22000:ST(12) = 0: REM   IDAHO 
  55. 21034  IF ST(13) =  -1  THEN X = 162:Y = 61: GOSUB 22000:ST(13) = 0: REM  ILLINOIS
  56. 21036  IF ST(14) =  -1  THEN X = 172:Y = 57: GOSUB 22000:ST(14) = 0: REM  INDIANA
  57. 21038  IF ST(15) =  -1  THEN X = 142:Y = 59: GOSUB 22000:ST(15) = 0: REM  IOWA
  58. 21040  IF ST(16) =  -1  THEN X = 117:Y = 78: GOSUB 22000:ST(16) = 0: REM  KANSAS  
  59. 21042  IF ST(17) =  -1  THEN X = 183:Y = 71: GOSUB 22000:X = 168:Y = 80: GOSUB 22000:ST(17) = 0: REM   KENTUCKY     
  60. 21044  IF ST(18) =  -1  THEN X = 164:Y = 114: GOSUB 22000:X = 153:Y = 106: GOSUB 22000:ST(18) = 0: REM  LOUISIANA
  61. 21046  IF ST(19) =  -1  THEN X = 229:Y = 23: GOSUB 22000:ST(19) = 0: REM   MAINE 
  62. 21048  IF ST(20) =  -1  THEN X = 218:Y = 61: GOSUB 22000:ST(20) = 0: REM  MARYLAND
  63. 21050  IF ST(21) =  -1  THEN X = 228:Y = 39: GOSUB 22000:ST(21) = 0: REM  MASSACHUSETTS
  64. 21051  IF ST(22) =  -1  THEN X = 176:Y = 41: GOSUB 22000:ST(22) = 0: REM  MICHIGAN
  65. 21052  IF ST(23) =  -1  THEN X = 138:Y = 47: GOSUB 22000:ST(23) = 0: REM  MINNESOTA
  66. 21054  IF ST(24) =  -1  THEN X = 170:Y = 95: GOSUB 22000:ST(24) = 0: REM  MISSISSIPPI 
  67. 21055  IF ST(25) =  -1  THEN X = 147:Y = 78: GOSUB 22000:ST(25) = 0: REM  MISSOURI
  68. 21057  IF ST(26) =  -1  THEN X = 74:Y = 38: GOSUB 22000:X = 62:Y = 24: GOSUB 22000:ST(26) = 0: REM  MONTANA
  69. 21058  IF ST(27) =  -1  THEN X = 117:Y = 57: GOSUB 22000:ST(27) = 0: REM  NEBRASKA
  70. 21060  IF ST(28) =  -1  THEN X = 38:Y = 63: GOSUB 22000:X = 51:Y = 78: GOSUB 22000:ST(28) = 0: REM  NEVADA
  71. 21061  IF ST(29) =  -1  THEN X = 225:Y = 32: GOSUB 22000:ST(29) = 0: REM   NEW HAMPSHIRE  
  72. 21062  IF ST(30) =  -1  THEN X = 220:Y = 51: GOSUB 22000:X = 220:Y = 55: GOSUB 22000:ST(30) = 0: REM   NEW JERSEY 
  73. 21064  IF ST(31) =  -1  THEN X = 91:Y = 87: GOSUB 22000:ST(31) = 0: REM  NEW MEXICO
  74. 21065  IF ST(32) =  -1  THEN X = 214:Y = 35: GOSUB 22000:ST(32) = 0: REM  NEW YORK
  75. 21066  IF ST(33) =  -1  THEN X = 216:Y = 79: GOSUB 22000:ST(33) = 0: REM      NORTH CAROLINA 
  76. 21068  IF ST(34) =  -1  THEN X = 110:Y = 35: GOSUB 22000:ST(34) = 0: REM  NORTH DAKOTA
  77. 21069  IF ST(35) =  -1  THEN X = 195:Y = 52: GOSUB 22000:ST(35) = 0: REM  OHIO
  78. 21070  IF ST(36) =  -1  THEN X = 134:Y = 85: GOSUB 22000:ST(36) = 0: REM  OKLAHOMA
  79. 21072  IF ST(37) =  -1  THEN X = 42:Y = 50: GOSUB 22000:X = 29:Y = 35: GOSUB 22000:ST(37) = 0: REM   OREGON 
  80. 21073  IF ST(38) =  -1  THEN X = 204:Y = 52: GOSUB 22000:ST(38) = 0: REM   PENNSYLVANIA   
  81. 21075  IF ST(39) =  -1  THEN ST(39) = 0: REM  RHODE ISLAND
  82. 21077  IF ST(40) =  -1  THEN X = 206:Y = 87: GOSUB 22000:ST(40) = 0: REM  SOUTH CAROLINA
  83. 21078  IF ST(41) =  -1  THEN X = 117:Y = 48: GOSUB 22000:ST(41) = 0: REM  SOUTH DAKOTA
  84. 21080  IF ST(42) =  -1  THEN X = 180:Y = 88: GOSUB 22000:X = 188:Y = 87: GOSUB 22000:ST(42) = 0: REM  TENNESSEE
  85. 21081  IF ST(43) =  -1  THEN X = 102:Y = 114: GOSUB 22000:X = 111:Y = 102: GOSUB 22000:X = 129:Y = 124: GOSUB 22000:ST(43) = 0: REM  TEXAS
  86. 21082  IF ST(44) =  -1  THEN X = 70:Y = 69: GOSUB 22000:ST(44) = 0: REM  UTAH
  87. 21084  IF ST(45) =  -1  THEN X = 220:Y = 30: GOSUB 22000:ST(45) = 0: REM  VERMONT
  88. 21086  IF ST(46) =  -1  THEN X = 200:Y = 73: GOSUB 22000:X = 211:Y = 64: GOSUB 22000:ST(46) = 0: REM      VIRGINIA   
  89. 21088  IF ST(47) =  -1  THEN X = 41:Y = 25: GOSUB 22000:ST(47) = 0: REM  WASHINGTON
  90. 21090  IF ST(48) =  -1  THEN X = 204:Y = 64: GOSUB 22000:X = 198:Y = 67: GOSUB 22000:ST(48) = 0: REM  WEST VIRGINIA
  91. 21092  IF ST(49) =  -1  THEN X = 159:Y = 38: GOSUB 22000:ST(49) = 0: REM  WISCONSIN
  92. 21094  IF ST(50) =  -1  THEN X = 89:Y = 54: GOSUB 22000:ST(50) = 0: REM  WYOMING
  93. 21098  RETURN 
  94. 22000  REM  *** FILL ROUTINE 
  95. 22001  REM  *** FROM "HI-RES SECRETS BY DON FUDGE, AVANT-GARDE SOFTWARE"
  96. 22010  HCOLOR= 0: HPLOT X,Y: POKE 6,A: POKE 7,B: POKE 8,C: POKE 9,D:Q =  PEEK(229): POKE 255,Q: POKE 239,Q: POKE 30, PEEK(6): POKE 31, PEEK(7): POKE 237, PEEK(48): CALL 36864
  97. 22012  RETURN 
  98. 23000  REM  *** TURN ON MAP
  99. 23005  PRINT D$;"BLOAD USMAP50"
  100. 23010  POKE  -16297,0: REM  HI-RES
  101. 23020  POKE  -16300,0: REM  PAGE 1
  102. 23030  POKE  -16302,0: REM  FULL PAGE
  103. 23040  POKE  -16304,0: REM  GRAPHICS
  104. 23050  RETURN 
  105. 23500  REM  *** TURN ON TEXT
  106. 23510  POKE  -16303,0
  107. 24000  REM k** COLOR SELECTION FOR FILL
  108. 24010  IF COLOUR = 0  THEN A = 128:B = 128:C = 128:D = 128: RETURN : REM  BLACK
  109. 24020  IF COLOUR = 1  THEN A = 42:B = 85:C = 42:D = 85: RETURN : REM  GREEN
  110. 24030  IF COLOUR = 2  THEN A = 213:B = 170:C = 213:D = 170: RETURN : REM  BLUE
  111. 24040  IF COLOUR = 3  THEN A = 127:B = 127:C = 127:D = 127: RETURN : REM  WHITE
  112. 24050  IF COLOUR = 4  THEN A = 170:B = 213:C = 127:D = 127: RETURN : REM  RED & WHITE BARS
  113. 24060  IF COLOUR = 5  THEN A = 170:B = 213:C = 170:D = 213: RETURN : REM  ORANGE
  114. 24070  IF COLOUR = 6  THEN A = 85:B = 42:C = 85:D = 42: RETURN : REM  VIOLET
  115. 24080  IF COLOUR = 7  THEN A = 127:B = 127:C = 128:D = 128: RETURN : REM  BLACK & WHITE BARS
  116. 24090  IF COLOUR = 8  THEN A = 127:B = 127:C = 213:D = 170: RETURN : REM  BLUE & WHITE BARS